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Bliss-32 v4 e 1] 
-Sep-1 ° 


VAX-11 -3 gOeres Pa 
DISKSVMSMASTER:CEDT.SRCJLPRINT.BLI;1 (1) | 


001 XTITLE "EDTSLPRINT = PRINT Line-mode command’ 
Oe MODULE EDTSLPRINT ( ! PRINT Line-mode command | 
90° [DENT = 'V04-000' ' File: LPRINT.BLI Edit: JBS1027 

. 
0 BEGIN 


' 
Vee eee eeeeeeAAAARAAAAAAAAAAAAAAATATA ATA EKe Kee Kee eReeKKeReneeeeeeeeeeene 
'e 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
} DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
t® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
tt OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
cs 
® 
© 
® 
we 
fr 
* 
® 
ie TRANSFERRED. * 
® 
® 
® 
® 
® 
® 
® 
® 
® 
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iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= eRPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: EDT -- The DEC Standard Editor 
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ek at ek et bt a tt 4 4) 4 4 9 bs — 2 = = as > 2s 2s 2s = s —s 9 4s 2 > 2s 4 9 42 4 49 2 2 OOO] 


' 
' 
ABSTRACT: 
36 : This module is called to produce a file containing 
SH a specified range of text in a special format. 
484 : ENVIRONMENT: Runs at any access mode - AST reentrant 
$024 AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
$028 ' MODIFIED BY: 
44 Bote : 
45 5 ! 1-001 - Original. DJS 30-JAN-81. This module was created b 
4 Boe8 : extracting the routines PRINT and FL Serant cre from EXEC.BLI. | 
4 ! 1- § - Regularize headers. JBS 20-Mar-1981 | 
48 8 ! 1- - Use new message codes. JBS 04-Aug-1981 
49 049 ! 1- - Convert to fileio for reads and writes. sts 15-Jan-1982 
50 50 ! 1-005 - Pass RHB address to callfio. STS 21-Jan-19 
51 051 ' I= = Don't pass descriptors to close file. STS 1 “f gh- 1982 | 
§ 2¢ ! 1- - Pass file name to edt$$fiopn_err. sis 55-Feb-1982 | 
5 ! d= 3 - Add Literals for callable EDT. STS 08-Mar-1982 
4 8 ! 1- - Avoid nfinitely recursive calls to PRINT. 185 11-Mar-1982 
5 055 ! 1- 1 - Print a message on CLOSE errors BS 12-Apr-1982 
¢ 56 i 1-011 = Check for CNTRL/C. SMB 14-Apr-i 
05 ! 1-012 = Move conversion to UPCASE for PDP-11's to FILEIO. SMB 21-Apr-1982 


et a ) 
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Page 2) 
14-Sep-1984 ny ) 


DISKSVMSMASTER:CEDT. SRCSLPRINT. BLI;1 (1) | 


Set a flag if control ¢ actually aborts gonething, JBS 24-May-1982 | 

Remove re erence o SET * petee. - SMB 1 

tion and restore after print. Is jVezdyns 1982 
| 
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vw 
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60 - . Save buffer po 
61 - - Pass default file name in <. arameter. JBS Jun- 
6 -017 = Remove EDTSSOPN FI, EDT$$w nd EDTS$CLS_FI fee: references: 


they are unused. "JBS 1 whee 
Stop the working message before second nrg. Of checks SMB 22-Jun-1982 
Stop processing on bad select ~~ Ms 
Errors on select ast be ‘nanes her level. ee 02-Jul-1982 
@ 


OOONA UNE WI 


Make EDTS$SRNG_POSFRST _ tens §Ts 1 79° abt | 
Reject ines $ Starting with ESC. » en 1 ~9555 82 
Don't use for puts. ove 

Use LIBSLP_ sTtNeS to compute he ‘ashen of Ungs per page on VMS. JBS 29-Apr-1983 
Correct an error in a comment. JBS 14-Jun-198 
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EDTSLPRINT = PRINT Line-mode command 


Declarations 


te al 


! Format write routine for PRINT command 
page for PDP-11 systems 
! Number of overhead Lines 


!' Process the PRINT command 


! Max Lines per 
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LPRINT = PRINT Line-mode command 16-Sep-1984 254: VAX-11 Bliss- 
T = intercept formatted output 19-808- 1388 90:34:88 DISKSVMSMASTE 


cous 


32 ys 0re§ Page 4 
R:CEDT.SRCJLPRINT.BLI;1 (3) 


ZSBITL ‘PRINT = intercept formatted output’ 
ROUTINE PRINT ( ! Intercept formatted output 
RECADDR, ! Address of record 
CLEN ! Length of record 
lee 


; FUNCTIONAL DESCRIPTION: 


| 
This routine is made the format write routine when doing a PRINT 
command. Whenever the formatting routines are to output a record 
this routine is called, which in turn writes the Line to the file. 

FORMAL PARAMETERS: 

RECADDR Address of the record to write 

RECLEN Length of that record 

IMPLICIT INPUTS: 


_ 
MFWn—O”o 
OOOCOCOCCOCOCOCOOOCOOCCoCOoO um 


IMPLICIT OUTPUTS: 

NONE 

ROUTINE VALUE: 

Same as EDTS$WR_OF I 

! SIDE EFFECTS: 

Changes the formatted write routine to EDT$$TI_WRLN during 
| 
| 
| 
| 


WN — SO OOBNOUS WN OOOBNOULS WN O0OW 


1/0, then restores it before returning. 


BEGIN 


EXTERNAL ROUTINE 
EDTS$SCALLF 10, 
EDTS$$T1_WRLN: 


EXTE wa 
DIS$A_CUR_BUF : REF TBCB_BLOCK, 
DISSA_FMT_WRRUT, 
DT$$L_10_FCHD; 


OOO UFw 00 


R 
E 
E 
E 
LOCAL 
STATUS, 
LEN 


ADD 
RHB_DESC : BLOCK CB, BYTE] 


wn 


FILE_DESC : BLOCK 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 1 
ZIF ZBLISS (BLISS32) 
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Hat EDTSK_CLOSE 
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EDTSLPRINT EDTSLPRINT = PRINT Line-mode command 18-se -1984 00:54: VAX-11 s-32 V Page 5 
yO4e PRINT = intercept formatted output 1 ~3007 138% 99:39:98 DISK$V nen TER: as OSRCSLPRINT.BLI: 37 . (3) 
3 6} 785 ZTHEN : 
; 1 7 § RHB_DESC poscse_oryvee) = DSCSK_DTYPE_T; | : 
; «4188 7 RHB_DESC LDSC$B CLASS) = DSC$K CLASS S . 
; 189 788 FILE DESC [DSCSB_DIYPE] = DSCSR_DTYPE_T; | ; 
; 190 7 FILE_DESC LDSCSB_CLASSJ = DSCSK_CLASS_S; ; 
,; I 790 2FI | ; 
: 136 149 ; 
: #19 79 FILE_DESC PoSesA POINTERS = »RECADDR; ‘ 
: 194 79 FILE DESC COSCSW bene rng = ,RECLEN : 
; 195 94 * RHB_BESC CDSCSA_POINTER) = EDTSSL_ “io. VF CHD; : 
3 397 79 Just in case the 1/0 routines have an error and decide to : 
; 198 79 : print a message about it, set the format write routine ‘ 
3 4 Bros a ack to EDTSS$TI_WRLN for the duration of the 1/0. ‘ 
; 201 tis ae EDTSSA_FMT_WRRUT = EDTSSTI_WRLN; | : 
3 $08 $80 i Reject any Lines that start with ESC. This is because if we do a PRINT in ; 
: 204 080 i change mode, EDT will try to put the text at the bottom of the screen, and ; 
; 205 0804 ! will issue escape sequences to this effect. Since we don't want these ; 
; 206 0805 i escape sequences to go into the file, reject them. ‘ 
: $08 gene § 
; 209 0808 IF ((CHSRCHAR (.RECADDR) EQL ASC_K_ESC) AND .RECLEN NEQ 0) ! ‘ 
; 210 0809 THEN ; 
z ai 0810 STATUS = 1 : 
; sig 0811 ELS ; 
3 $\7 Oaig STATUS = EDTSSCALLFIO (EDTSK_PUT, EDTSK_WRITE_FILE, FILE_DESC, RHB_DESC); | ; 
; 315 0814 2 !+ | : 
: \¢ the } Now restore this routine as the formatted write routine. ; 
Hy $i 0817 EDTSSA_FMT_WRRUT = PRINT; | 
: 219 0818 RETURN (.STATUS); 
; 220 0819 1 END; ! of routine PRINT | 

| 


]_WRLN 
SA. R_BUF, EDTSSA_FMT_WRRUT 
$$i- io Un Be 6 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


OO PRINT: .WORD Save R2 
ROVAS EDTSSA_FMT_WRRUT, R2 
SUBL #1 SP 

! 6. RHB_D DESC#2, 


MOV a 

MO #270, FILE bes C+2 
1 MOVL RECADDR, FILE DESC+4 
1D MOVW  RECLEN, FILE_DESC 


0729 


iG 


22 000000006 9° 


04 000 
9E 000 
E C 
A AE 4 E er 8 
2 AE 10€ F B 
4 AE 4 AC DO 
6E 8 BO 00 


AC 
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EDTSLPRINT EDTSLPRINT = PRINT Line=-mode command 16-Sep-1984 254: VAX=-11 Bliss-32 V4.0-74 Page 6 
Ou ~000 PRINT = intercept formatted output 1 =$007 1388 99:39:98 DLSKSVMEHASTERSCEDT SRCSLPRINT.BLI:1 (3) 
OC AE 00 G 9E 1 MOVAB EDTS$$L_I0_VFCHD, RHB_DESC+4 + 0794 
65 200000006 88 4: 09 9 MOVAB EDTSSTI_WRLN, EDTSS$A~FMT_WRRUT + 0800 
18 4 BC 9 0 CMPB = @RECADDR, #27 : 0808 
A 1 90 4 BNEQ '1$ : 
08 0S 33 S039 wen 
50 of Me $5 8 MOVL si. STATUS + 0810 
ae Bhi a 
90000066 F DD § 46 PUSHL #EDTSK_WRITE_FILE F 
000000006 8F DD 0 4 PUSHL #EDTS$K pul : 
000000006 00 4 FB 0005 CALLS #4, EDTS$$CALLFIO ; 
62 AG AF 9E 00059 28: MOV PRINT, EDTSSA_FMT_WRRUT + 0817 
04 0005p RET + 0819 


; Routine Size: 94 bytes, Routine Base: _EDTSCODE + 0000 


era 
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PRINT = PRINT Line-mode command 16-Sep-1984 00:54: VA 32 V4.0-74 Pa 7) 
SPRNT_CMD = PRINT Line-mode command 12286871382 99:33:98 DI RSCEDT SRCILPRINT .BLI:1 8 (4) | 
AZSBTTL ‘EDTSSPRNT_CMD = PRINT Line-mode command' 


GLOBAL ROUTINE EDTSSPRNT_CMD ! PRINT Line-mode command 
: NOVALUE = 


++ 
FUNCTIONAL DESCRIPTION: 
| 
Command processing for PRINT. First, attempt to open the file. 
If it succeeds then set up the Little routine above as the format 
write routine and process the range. A page skip is done after 
Lines, or when the first character of a Line is a form feed, 
whichever comes first. | 
' FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
EDTSS$A_CUR_BUF 
EDT$$G_TXT-ONSCR 
EDTS$G_T1_WID 
EDT$$Z_RNG_ORIGPOS | 
EDTSSA_Wk 
EDTSSAEXE. CURCMD | 
IMPLICIT OUTPUTS: | 


EDT$$G_TXT_ONSCR 
EDT$$G_CC_BONE 


ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 


On exit from this routine, the 4 mage routine is set to EDTSS$TI_WRLN. 
While it is running, the formatting routine is usually in this module. 


BEGIN 


cre ROUTINE 
EDTSSSTOP_WKINGMSG, 


FIOPN_ERR, 


PRIPIPOP IP INPINIMIM DM INIT DIIN) 0 at st st tt kk kd td ht ot 
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EDTSLPRINT EDTSLPRINT = PRINT Line-mode command 1b-se -1984 00:54: VAX-11 Bliss-32 V4.0-74 Page 8) 
- a - N ne-mode comman -Sep- 223: K$V : . LPRINT.BLI; 
bos EDTSSPRNT CMD PRINT Li d d 14*5S ; 198 99 23 8 DISKSVMSMASTER:CEDT shes PRINT.BLI;1 ’ (4) 
3; 2° 77 
; 0 L a ZIF BLISS (BLISS32) 
H 1 B THEN 
; HG +h EXTERNAL ROUTINE 
> 284 8 ¢ STRSFREE1_ Dx, ! needed for deallocation of dynamic descriptors 
; 285 88 LIBSLP_LINES; ! Compute number of Lines per page 
; 286 Ht 
; 44 pene tFI 
; 289 O88? ExTean, 
; 290 tts EDTSS$G_EXT_MOD, ! Are we in EXT mode 
; 291 889 EDTSSA_FMT_WRRUT ! Address of write routine 
i 39@ 0890 EDT$$Z_RNG_SAVPOS, 
; ey 0891 EDTSSA_FMT_CUR, 
; 294 Bae EDTSST_FMT_BUF, 
> 295 089 EDT$SA_CUR-BUF : REF TBCB_BLOCK, 
: 296 0894 EDTS$G_TXT_ONSCR, 
; 297 0895 EDT$$G-T1_QID 
; 298 0896 EDT$$Z-RNG_ORIGPOS : POS_BLOCK, 
; 299 0897 EDT$$2_E0B_ 
; 300 0898 EDTS$G_RNG_FRSTLN 
; 301 0899 EDT$S$A_Wk_CN : REF LIN BLOCK, 
; 302 0900 EDT$$A_EXE_CURCMD : REF NODE_BLOCK, ' Pointer to the current command. 
; Sor 349 EDTS$$G_CC_BONE; ! Set to 1 if control C actually aborted something 
; 05 090 MESSAGES ((NOFILSPC, PRIFILCRE, PRIFILCLO)); 
: 309 0908 LOCAL 
; 308 0906 FORMAT_ROUTINE, ' Save the format routine entered with 
; 309 0907 OUNT, ! Number of Lines on this page 
: 310 090 FILE DESC : BLOCK 8. BYTE), 
; 4 3444 Be DESC : BLOCK (8, BYTEJ, 
qo gi Hise. 
; 315 6918 5 SAVE_WIDTH, ! Save the terminal width 
3 1 0914 IFI, ! IFI of the output file. 
3 it p312 MAX_LINES; ! Number of Lines par page 
3; «(319 bo17 BIND 
; 320 0918 RAN = .EDTS$A_EXE_CURCMD CRANGE1] : NODE_BLOCK; 
; 1 ah +e 
Fr} 4 921 !' Make sure there is a file spec. 
: 356 0958 5 
; $8 926 IF (.EDTSSA_EXE_CURCMD CFSPCLEN] EQL 0) 
; $f 925 THEN 
3 8 9 $ BEGIN 
: 4 9 EDTSSFMT_MSG (EDTS_NOFILSPC); 
3 9 RETURN; 
3 1 ; 
: 338 a3) 5 
; $ i § If the range is null, then make it the whole buffer. 


6 | 
EDTSLPRINT ERTS PR aT - PRINT Line-mode command 1b-5 Sep =1386 9 +34: $§ VAX-11 Bliss-32 V4.0-7 Page 9 
V04- EDTSSPRNT_CMD = PRINT Line-mode command 14-Sep-19 :2 DISKSVMSMASTER: CEpT. sre LPRINT.BLI;1 (4) | 
; 84 ¢ SAV_BUF = .EDTSSA_CUR_BUF; ! save original address 
: 3 03 § IF (RAN CRAN_TYPE] EQL RAN_NULL) THEN RAN CRAN_TYPE] = RAN_WHOLE; | 
; 340 09 3 + 
: 341 09 i Position to top of range. 
; 0940 ie 
; 3% 0941 EDTS$$G_RNG_FRSTLN = 
; te Bag EDTSSCPY_MEM (POS s1zk, -EDTSSA_CUR_BUF, EDT$$Z_RNG_ORIGPOS); 
3 +8 boce IF ( NOT EDTSSRNG_REPOS (.EDTSSA_EXE_CURCMD CRANGE1])) THEN RETURN; | 
: 48 0946 FORMAT_ROUTINE = .EDTSSA_FMT_WRRUT; 
o . i 
3 ae 0948 ! Compute the number of Lines per page. | 
: Sa 0949 != 
; 26 0950 
; = Lt 0951 ZIF XBLISS (BLISS32) 
; 354 0326 ZTHE 
:; 095 MAX_LINES = MAX (1, LIBSLP_LINES () = K_OVERHEAD_LINES); 
: 356 U 0954 ELSE 
:; 357 U 0955 MAX_LINES = MAX (1, K_MAX_LINES = K_OVERHEAD_LINES); 
; 358 0956 FI 
3 oP 0957 
; 360 0958 + : 
3 6] 3434 : _Set up so a form feed will be output immediately. 
5 30 0961 COUNT = .MAX_LINES; 
3; 364 096 + 
; 365 096 ' Open the file. 
; 366 0964 !— 
3; 367 0965 
: 368 L 0966 ZIF ZBLISS (BLISS32) 
; 369 0967 ZTHEN 
; 370 0968 FI iL ~pest DSC$B apres = DSCSK_DTYPE_T; 
s 371 0969 FIL DSC$B-CLA = DSC$K-CLASS_D; 
; or 0970 RHE a: Pee. bSc$e OT YP Pe) = DSCS$K_BTYPE_ ie 
> oF 0971 RHB_DESC DScSB- CLASS) = DSC$K_CLASS_ 
3 374 097 XFI 
3 «STS 097 
: 376 0974 FILE_DESC Fpscss POINTER = 0; 
ae 0975 FILE DESC CDOSC$W LeNerng = 0: 
s 378 097 RHB_BESC POS CsA POINTES = 0; 
: 379 97 RHB_ DESC CDSC$W_LENGTH) = 0; 
; 380 978 STRCEN = .EDT$$A_EXE_CURCMD FFSPCLEN]: 
; 81 0979 STRADR = .EDTSSA_EXE CURCMD CFILSPEC 
; Be 09 0 STRING_DESC (FILE DESC, STRLEN, .STRAOR); 
; 4 i 1 IFI = EDTSSCALLFIO (EDT $K_OPEN_OUTPUT_ Nogea, EDTSK_WRITE_FILE, FILE_DESC, RHB_DESC); 
; 385 388 IF (.1FI NEQ 0) 
: 386 984 THEN 
3 14 > 5 BEGIN 
3 34 > ; : Save the current terminal width and make it 132 characters for the printer. 
; 391 989 SAVE_WIDTH = .EDT$$G_TI_WID; 
; 392 0990 EDTS$G_TI_WID = 132;7 
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EDTSLPRINT pore. chiar - PRINT Line=-mode command Jon~sen~ 1386 00:34:66 VAX-11 Bliss-32 ged Page 10| 
v04 EDTSSPRNT_CMD = PRINT Line-mode command 14-Sep-1984 12:23: DISKSVMSMASTER:CEDT.SRCJLPRINT.BLI;1 (4) 
: me 991 1+ ; 
3 Be 336 Reset the format writing routine. ‘ 
: : 80e EDTSSA_FMT_WRRUT = PRINT; ‘ 
: 398 099 ' Loop through the range. ° 
3; a 399 l- . ; 
; 400 0998 ; 
; 401 999 WHILE (EDTSSNXT_LNRNG (0) AND ( NOT EDTS$CHK_CC ())) DO ; 
: 40 1000 4 BEGIN ; 
; 40 1001 4 : 
> 404 1008 5 IF (.EDTSSA_WK_LN NEQA EDT$$2Z_EOB_LN) ‘ 
; 405 10053 4 THEN ; 
; 406 1004 2 BEGIN : 
; 407 1005 + : 
: 408 1006 5 ! Look for form-feed in the record. : 
; 409 1007 5 !- : 
: 410 1008 5 : 
: “13 190, : IF (CHSRCHAR (EDTSSA_WK_LN CLIN_TEXTJ) EQL 12) THEN COUNT = .MAX_LINES; ; 
A So Ot i trek og oe : 
; ! Check for a page skip. ; 
3 415 1918 : !- ; 
: 416 1014 § ; 
: 417 1015 6 IF (.COUNT EQL .MAX_LINES) ; 
; 418 1016 5 THEN 3 
; 419 1017 6 BEGIN : 
: 420 1018 6 PRINT (UPLIT BYTE(12), 1); 3 
3 $s! 1019 6 !4 ; 
: 4 ¢ 1020 6 ! now dump out two blank Lines ; 
3 tSi 1993 ? first make sure that the format buffer is empty : 
: 425 10 : 6 EDTSSA_FMT_CUR = EDTSST_FMT_BUF; : 
3; 426 1024 6 EDT$SOOT_FATBUF (); ; 
: 427 196? 6 EDTSSOUT FMTBUF (); 3 
: 428 1026 6 COUNT = 0; ; 
F ri 1027 5 ND; : 
: 430 1028 : 3 
7 431 1029 COUNT = .COUNT + 1; F 
3 $36 1030 5 !¢ 3 
; 43 1031 2 ! And print the Line. s 
; 434 1936 = 3 
; 435 10 3 
3 $36 \oee IF ( NOT EDTSSTY_CURLN ()) THEN EXITLOOP; 3 
: O38 108% END | 
; 439 1939 4 3 
; 4460 Ose END; : 
3 441 197) 3 
; 2 Ho IF (.EDTS$SG_EXT_MOD) THEN EDTSSSTOP_WKINGMSG (); 3 
: 644 104¢ '¢ : 
s ret Sk Reposition to the first Line of the range. : 
3; «464 19¢8 EDTSSCPY_MEM (POS_SIZE, EDTS$Z_RNG_SAVPOS, .EDTSSA_CUR_BUF); : 
3 rer | 106 a EDTSSRD_CURLN (); : 
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450 “8 } _Close the file. 

? 1 4 

4 i ? IF EDTSSCHK_CC () 

454 § 

: 5 ? BEGIN 

2 ? 2? IF ( NOT EDTSSCALLFIO (EDTSK_CLOSE_DEL, EDTSK_WRITE_FILE, FILE_DESC, 0)) 

$23 37 EDTSSFIOPN_ERR (EDTS_PRIFILCRE, FILE_DESC); 

461 25 EDTS$G_CC_DONE = 1; 

re | Q END 

ret ee ELSE 

ret Oe$ IF ( NOT EDTSSCALLFIO (EDTSK_CLOSE, EDTSK_WRITE_FILE, FILE_DESC, 0)) 

467 065 

468 066 

469 67 '¢ 

470 68 i Restore the terminal width and the format write routine, 

of) +4 t and reposition to the original Line. 


EDTS$$G_TI_WID = .SAVE_W 
EDTSSA_ -faT at “EDTSSt "ORLN; 
EDTSSA_ BUF ; fir et the buffer address 
ED TSSCPY URER” (Pos “Shyee EDT$$2Z _RNG _orIGPOS. EDT $A_CUR_BUF ); 
EDTSSRD_CURLN (); 
END 

ELSE 
'¢ 
- Here if file was not opened. 

EDTSSFIOPN_ERR (EDTS_PRIFILCRE, FILE_DESC); 
EDTSSA_FMT_WRRUT = .FORMAT_ROUTINE; 


'¢ 
i a VMS deallocate dynamic descriptors 
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EDTSSFIOPN_ERR (EDTS_PRIFILCRE, FILE_DESC); 
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EDTSLPRINT EDTSLPRINT = PRINT Line-mode command 1B-se -1984 254: VAX-11 Bliss-32 V4.0-74 Page 13 
RSG EDTSSPRNT_CMD = PRINT Line-mode command 1 tat 1 90:34:88 DISKSVMSMASTER: CEDT. SRCJLPRINT.BLI;1 9 a) 
000000006 8F DD O00BF PUSHL #EDTS$K_OPEN_OUTPUT_NOSEQ ; : 
000000006 00 S| C5 CALLS # EDTSSEACLE IO : : : 
CC TSTL Ff + 0983 ; 
C BNEQ $ : : 
6 000000006 65 0 9o00% 5S ary, sUEDTSSG.TI_WID, SAVE. WIDTH : 0989 
000000006 88 9? F oA DA MOVIBL oO EDTS$G_f1_wID™ + 0990 ; 
6A FEB CE OE Eg MOVAB PRINT, EDTSSA_FAT_WRRUT + 0994 ; 
- D £7 6$: -(SP + 0999 ; 
000000006 0 9 Fe E9 CALLS i, DTSS$NXT_LNRNG : ; 
000000006 09 i 3 CALLS a. DTSSCHK_CC ; : 
0 900000006 p FD EDT$SA_WK_LN, RO + 1002 ; 
1 000000006 : 194 MOVAB EDT$$7_E0B_LN, R1 : ; 
1 D1 001 CMPL =soaRO, R : ; 
07 13 106 BEQL $$ : ; 
0c 07 Aad 91 0011 CMPB (RO), #12 + 1009 ; 
if 114 BNEQ 7$ : ; 
52 DO 00116 MOVL § MAX_LINES, COUNT : : 
5 D1 00119 7$: CMPL COURT, MAX_LINES + 1015 ; 
36 12 ori BNEQ $ : : 
1 0d 0 11 PUSHL #1 + 1018 ; 
FEDB «OCF O9F:«001 PUSHAB P : : 
FE7B oC 02 FB 1 4 CALLS #2 ; : 
000000006 60 000000006 9E 00129 OVAB EDTSST_FMT_BUF, EDTSSA_FMT_CUR + 1023 ; 
000000006 00 0 FB 001 CALLS 40, EDTSSOOT_FMTBUF + 1024 ; 
000000006 00 FB 001 CALLS #0, EDT$$OUTFMTBUF + 1025 F 
D4 O14 CLRL COUNT + 1026 : 
52 D6 00144 BS: INCL COUNT : 1029 ; 
000000006 90 g FB 0146 CALLS 40. EDTSSTY_CURLN : 10 : 
9 E8 00140 BLBS 5 : ; 
7 000000006 00 €9 001 : 9$: BLBC ~—_-« EDF $$G gx! MOD, 10$ + 1040 : 
000000006 | 4 FB 001 CALLS #0 gor SSTOP_WKINGMSG : : 
6 p 01 F 10$:  MOVL EDTS$A_CUR BUF, RO > 1045 ; 
60 000000006 00 0 016 MOVC3 #14, EDT$$Z_RNG SAVPOS, (RO) ; ; 
000000006 00 FB 0169 CALLS #0, EDT$$RD~CURCN : 1046 ; 
000000006 90 FB oi : CALLS #0. EDISSCHR._ CC : 1051 ; 
E9 0017 BLBC ~=—_—«aRO,._:‘12 : ; 
E D4 OO17A CLRL 3s = ( §P) + 1055 : 
10 AE 9F O017C PUSHAB F ILE_DESC ; ; 
B OD our PUSHL 1 : : 
000000006 8F DD 00181 SHL  #EDTSK_CLOSE_DEL ; | : 
000000006 4 Fe 187 CALLS #4, FOTSSCALCE : F 
0 f 1 LBS. —s-«aRO,:*‘118 : 3 
o¢ AE 9F 001 PUSHAB FILE DESC : 1057 | ; 
000000006 8F DD 001 SHL  #EDTS PRIFILCRE : ; 
000000006 00 FB OO19A CALLS #2, EDTSSFIOPN ERR ; : 
000000006 00 p 1A1 118:  MOVL #1. EDT$$G_CC_BONE > 1059 ; 
1A8 BRB 13$ > 1051 : 
E D4 OO1AA 128: CLRL  <-<SP) > 1063 : 
10 AE 9F OOTAC PUSHAB FILE_DESC ; 3 
B OD OOTAF PUSHL R 3 $ 
000000006 8F DD 00181 PUSHL #EDTSK CLOSE ; : 
000000006 00 4 FB 187 CALLS #4, pT CALLFIO ; ; 
1 0 f 1BE LBS.—séRO.. 138 : : 
Oc AE 9F O01C PUSHAB FILE_DESC ; : 


| 
H 6 
EDTSLPRINT EDTSLPRINT = PRINT Line-mode command 16-Sep-1984 VAX-11 Bliss- 32 Vv e 14 E 
eee ts EDTSSPRNT_CMD = PRINT Line-mode command 14-Sep P= 1 984 99: 343 § DISKSVMSMASTER: chor? Sac LPRINT.BLI;1 — (4) V 
000000006 8F DD 001C4 PUSHL #EDTS_PRIFILCRE ; 
990900006 00 FB 1CA CALLS 5 EDT SSF DPN ; : 
0000006 p 101 13$ OVL SAVE WIDTH, EDT $6 Iw + 1071 
6A 000000006 108 MOVAB EDTSSTI_WRLN, EDTSSA_FMT_wRRUT : 107 
9 D6 001DF MOVL SAV BUF EDTS$$A_CUR_BUF + 107 
9 p Tee MOVL.  EDTSSA CUR BUF + 1074 
60 000000006 6 1E vC3. #14, EBTS$S2Z_ RNG. ORIGPOS, (RO) : 
000000006 FB OO1ED CALLS #9 EDTSS$RD~CURE + 1075 
11 OO1F4 15$ + 0983 
OC AE OF 166 14$:  PUSHAB FILE_DESC + 1081 
000000006 8F DD OOF PUSHL  #EDTS PRIFIL F 
000000006 00 ‘ FB 1FF CALLS #2, EDTS$FIO : 
6A p 06 15$:  MOVL - FORMAT_ROUTINE; EDTSS$A_FMT_WRRUT + 1083 
0c At F PUSHAB FILE_DESC 3: 1090 
000000006 00 01 FB 00 O¢ CALLS #1, STRSFREE1_Dx : 
04 AE OF 1 PUSHAB RHB_DESC + 1091 
000000006 00 01 FB 00216 CALLS #1, STRSFREE1_DXx : 
04 00210 RET + 1094 


; Routine Size: 542 bytes, Routine Base: _EDTSCODE + O05F 


: 497 1095 1 
: 498 1096 1 !<BLF/PAGE> 


Elapsed Time: te 6 
Lines/CPU Min: 1987 
Oneness Petras 7143 
penety Used: 181 pages 
Compilation Complete 


} 
EDTSLPRINT EDTSLPRINT - PRINT Line-mode command 1b-se Sep-1 VAX-11 Bliss-32 V Page 15 
BI boo ath PRNT_CMD = PRINT Line-mode command Hatt fi 99: 343 § DISKSVMSMASTER: ch OSRCSLPRINT. BLI;1 . JB 
; 38% 1938 1 END ! of module EDTSLPRINT | 
: 502 1099 0 ELUDOM | 
| 
| 
: PSECT SUMMARY 
; Name Bytes Attributes | 
:  EDTSCODE 637 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
; aceoeese $yeeel§ oocee soe Pages Processing | 
5 File Total Loaded Percent Mapped Time | 
: _$255$0UA28: EDT. SRCJEDT 32:1 377 95 25 40 00:00.2 | 
: ~$255$DUA28: RCJPSECTS.L32; 2 1 50 7 00:00.1 | 
; ~$255$DUA28: fey Sc IBSSTARLET C3931 9776 7 0 581 00:04.1 | 
| 
: COMMAND QUALIFIERS | 
MH BLISS/CHECK=(FIELD, INJTIAL,OPTIMIJZE) /NOTRACEBACK/LIS=LIS$:LPRINT/OBJ=OBJ$:LPRINT MSRC$:LPRINT.BLI/UPDATE=(ENH$:LPRINT) 
Size: 636 0b:85.2 + 1 data bytes 
Run Time: 


<m 
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